﻿Imports extremo

Public Class RProveedor

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        Dim x = Me.txtNombre.Text
        Dim y = Me.txtDireccion.Text
        Dim z = Me.txtRuc.Text
        Dim a = Me.txtTelefono.Text
        Dim n = New ProveedorNegocio()
        Dim paquete = n.insertar(x, y, z, a)

        MsgBox("Proveedor registrado!!!!")

        'Limpiar cajitas de texto desues de ingresar datos
        txtNombre.Clear()
        txtDireccion.Clear()
        txtRuc.Clear()
        txtTelefono.Clear()

    End Sub

    Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub
End Class